home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / sketch.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-04-24  |  1.1 KB  |  36 lines
  1. 10  REM GRAPHICS.2 Program for IBM Personal Computer
  2. 20  REM Version 1.00 (C)Copyright Software Laboratories, Inc.
  3. 30  REM Property of Software Laboratories,Inc.
  4. 40  REM Author - M.D. Bates
  5. 50  CLEAR:KEY OFF:DEF SEG:POKE 106,0:SCREEN 1,1:CLS
  6. 70  PRESET (1,199),7:X1=1:Y1=199:X2=X1:Y2=Y1
  7. 80  FOR X=1 TO 2:CIRCLE(1,199),X:NEXT X
  8. 90  POKE 106,0:X$=INKEY$:IF X$="" THEN 90
  9. 100  IF X$=CHR$(27) THEN 360
  10. 110  IF ASC(X$)<49 OR ASC(X$)>57 THEN 90
  11. 120  X=ASC(X$)
  12. 130  IF X=49 THEN X2=X1-1:Y2=Y1+1:GOTO 220
  13. 140  IF X=50 THEN X2=X1:Y2=Y1+1:GOTO 220
  14. 150  IF X=51 THEN X2=X1+1:Y2=Y1+1:GOTO 220
  15. 160  IF X=52 THEN X2=X1-1:Y2=Y1:GOTO 220
  16. 170  IF X=53 THEN 300
  17. 180  IF X=54 THEN X2=X1+1:Y2=Y1:GOTO 220
  18. 190  IF X=55 THEN X2=X1-1:Y2=Y1-1:GOTO 220
  19. 200  IF X=56 THEN X2=X1:Y2=Y1-1:GOTO 220
  20. 210  IF X=57 THEN X2=X1+1:Y2=Y1-1:GOTO 220
  21. 220  REM CHECK FOR SCEEEN LIMITS AND UPDATE
  22. 230  IF X2>319 THEN X2=X1:Y2=Y1:GOTO 280
  23. 240  IF Y2>199 THEN Y2=Y1:X2=X1:GOTO 280
  24. 250  IF X2<1 THEN X2=X1:Y2=Y1:GOTO 280
  25. 260  IF Y2<1 THEN Y2=Y1:X2=X1:GOTO 280
  26. 270  PRESET(X2,Y2),7
  27. 280  X1=X2:Y1=Y2:X2=0:Y2=0
  28. 290  GOTO 90
  29. 300  POKE 106,0:R$=INKEY$:IF R$="" THEN 300
  30. 310  IF R$=CHR$(27) THEN 350
  31. 320  IF ASC(R$)<49 OR ASC(R$)>57 THEN 300
  32. 330  CIRCLE(X1,Y1),VAL(R$)
  33. 340  GOTO 90
  34. 350  CLS:LOCATE 1,1,0:PRINT"Good bye !!!";:RUN"MENU.2"
  35. 360  IF X1=1 AND Y1=199 THEN 350 ELSE 50
  36.